home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / sptmbr11.lha / clx / sys-proclaim.lisp < prev    next >
Text File  |  1992-06-01  |  46KB  |  994 lines
  1.  
  2. (IN-PACKAGE "USER") 
  3. (PROCLAIM
  4.     '(FTYPE (FUNCTION (FIXNUM FIXNUM T) *) XLIB:QUERY-BEST-CURSOR
  5.             XLIB:QUERY-BEST-STIPPLE XLIB:QUERY-BEST-TILE)) 
  6. (PROCLAIM
  7.     '(FTYPE (FUNCTION (FIXNUM FIXNUM T T FIXNUM T T) *)
  8.             XLIB::IMAGE-SWAP-FUNCTION)) 
  9. (PROCLAIM
  10.     '(FTYPE (FUNCTION
  11.                 ((VECTOR UNSIGNED-CHAR) FIXNUM T FIXNUM FIXNUM FIXNUM
  12.                  FIXNUM FIXNUM FIXNUM T FIXNUM T T FIXNUM T T)
  13.                 *)
  14.             XLIB::READ-PIXARRAY-INTERNAL XLIB::WRITE-PIXARRAY-INTERNAL)) 
  15. (PROCLAIM
  16.     '(FTYPE (FUNCTION
  17.                 ((VECTOR UNSIGNED-CHAR) FIXNUM T FIXNUM FIXNUM FIXNUM
  18.                  FIXNUM FIXNUM FIXNUM FIXNUM T T)
  19.                 *)
  20.             XLIB::READ-PIXARRAY XLIB::WRITE-PIXARRAY
  21.             XLIB::FAST-READ-PIXARRAY XLIB::FAST-WRITE-PIXARRAY)) 
  22. (PROCLAIM '(FTYPE (FUNCTION (T INTEGER *) *) XLIB:KEYSYM->CHARACTER)) 
  23. (PROCLAIM '(FTYPE (FUNCTION (T INTEGER T *) *) XLIB:STORE-COLOR)) 
  24. (PROCLAIM '(FTYPE (FUNCTION (*) (VALUES T T)) XLIB::XINTERN)) 
  25. (PROCLAIM
  26.     '(FTYPE (FUNCTION ((VECTOR T)) *) XLIB::DEALLOCATE-GCONTEXT-STATE)) 
  27. (PROCLAIM
  28.     '(FTYPE (FUNCTION (FIXNUM T FIXNUM) FIXNUM) XLIB::ASET-CARD8
  29.             XLIB::ASET-INT8 XLIB::ASET-CARD29 XLIB::ASET-INT16
  30.             XLIB::ASET-CARD16 XLIB::ASET-INT32)) 
  31. (PROCLAIM
  32.     '(FTYPE (FUNCTION (T FIXNUM FIXNUM) FIXNUM)
  33.             XLIB:WARP-POINTER-RELATIVE XLIB:WARP-POINTER)) 
  34. (PROCLAIM
  35.     '(FTYPE (FUNCTION (FIXNUM FIXNUM T FIXNUM FIXNUM *) T)
  36.             XLIB:WARP-POINTER-RELATIVE-IF-INSIDE)) 
  37. (PROCLAIM
  38.     '(FTYPE (FUNCTION (T FIXNUM FIXNUM T T FIXNUM) FIXNUM)
  39.             XLIB:TRANSLATE-DEFAULT)) 
  40. (PROCLAIM
  41.     '(FTYPE (FUNCTION (T) XLIB::BUFFER-BYTES) XLIB::BUFFER-OBUF8
  42.             XLIB::REPLY-IBUF8)) 
  43. (PROCLAIM
  44.     '(FTYPE (FUNCTION (T) XLIB:CARD16) XLIB::FONT-INFO-DEFAULT-CHAR
  45.             XLIB::IMAGE-X-BYTES-PER-LINE
  46.             XLIB:DISPLAY-MAX-REQUEST-LENGTH
  47.             XLIB:SCREEN-MAX-INSTALLED-MAPS
  48.             XLIB:SCREEN-MIN-INSTALLED-MAPS
  49.             XLIB:VISUAL-INFO-COLORMAP-ENTRIES XLIB:IMAGE-WIDTH
  50.             XLIB:SCREEN-HEIGHT-IN-MILLIMETERS XLIB:SCREEN-WIDTH
  51.             XLIB:SCREEN-HEIGHT XLIB:DISPLAY-PROTOCOL-MAJOR-VERSION
  52.             XLIB:DISPLAY-PROTOCOL-MINOR-VERSION
  53.             XLIB:SCREEN-WIDTH-IN-MILLIMETERS XLIB:IMAGE-HEIGHT
  54.             XLIB::PENDING-COMMAND-SEQUENCE XLIB::FONT-INFO-MIN-CHAR
  55.             XLIB::FONT-INFO-MAX-CHAR)) 
  56. (PROCLAIM
  57.     '(FTYPE (FUNCTION (T) XLIB:CARD8) XLIB::FONT-INFO-MIN-BYTE1
  58.             XLIB::FONT-INFO-MAX-BYTE1 XLIB::FONT-INFO-MIN-BYTE2
  59.             XLIB::FONT-INFO-MAX-BYTE2 XLIB::IMAGE-X-LEFT-PAD
  60.             XLIB:DISPLAY-MAX-KEYCODE XLIB:IMAGE-DEPTH
  61.             XLIB:VISUAL-INFO-BITS-PER-RGB XLIB:DISPLAY-MIN-KEYCODE)) 
  62. (PROCLAIM
  63.     '(FTYPE (FUNCTION (T) XLIB:CARD32) XLIB:WM-HINTS-FLAGS
  64.             XLIB:DISPLAY-MOTION-BUFFER-SIZE
  65.             XLIB:DISPLAY-RELEASE-NUMBER)) 
  66. (PROCLAIM
  67.     '(FTYPE (FUNCTION (T) FIXNUM) XLIB:UNMAP-SUBWINDOWS
  68.             XLIB::FONT-REFERENCE-COUNT XLIB:CIRCULATE-WINDOW-UP
  69.             XLIB::DISPLAY-SIZE XLIB::BUFFER-NEW-REQUEST-NUMBER
  70.             XLIB::DISPLAY-BOFFSET XLIB:ADD-TO-SAVE-SET
  71.             XLIB:UNMAP-WINDOW XLIB:MAP-WINDOW XLIB:NO-OPERATION
  72.             XLIB:CIRCULATE-WINDOW-DOWN XLIB:GRAB-SERVER
  73.             XLIB:SCREEN-ROOT-VISUAL XLIB:INSTALL-COLORMAP
  74.             XLIB:ACTIVATE-SCREEN-SAVER XLIB:REMOVE-FROM-SAVE-SET
  75.             XLIB:UNINSTALL-COLORMAP XLIB:DESTROY-SUBWINDOWS
  76.             XLIB:DESTROY-WINDOW XLIB:MAP-SUBWINDOWS
  77.             XLIB:RESET-SCREEN-SAVER XLIB:KILL-TEMPORARY-CLIENTS
  78.             XLIB:UNGRAB-SERVER XLIB:DISPLAY-NSCREENS)) 
  79. (PROCLAIM
  80.     '(FTYPE (FUNCTION (FIXNUM) T) XLIB::INT32->CARD32
  81.             XLIB::ALLOCATE-REPLY-BUFFER XLIB::CARD16->RGB-VAL
  82.             XLIB::INT16->RADIANS XLIB:MAKE-STATE-KEYS)) 
  83. (PROCLAIM
  84.     '(FTYPE (FUNCTION (T) (FUNCTION (XLIB:GCONTEXT T) T))
  85.             XLIB::GCONTEXT-EXTENSION-SET-FUNCTION)) 
  86. (PROCLAIM
  87.     '(FTYPE (FUNCTION (T) XLIB:IMAGE-DEPTH) XLIB:SCREEN-ROOT-DEPTH
  88.             XLIB:PIXMAP-FORMAT-DEPTH)) 
  89. (PROCLAIM
  90.     '(FTYPE (FUNCTION (T) (FUNCTION (XLIB:GCONTEXT XLIB:GCONTEXT T) T))
  91.             XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION)) 
  92. (PROCLAIM
  93.     '(FTYPE (FUNCTION (T) XLIB:BITMAP-FORMAT)
  94.             XLIB:DISPLAY-BITMAP-FORMAT)) 
  95. (PROCLAIM
  96.     '(FTYPE (FUNCTION (T) LIST) XLIB::DISPLAY-EXTENSION-ALIST
  97.             XLIB::RESOURCE-DATABASE-TIGHT XLIB::RESOURCE-DATABASE-LOOSE
  98.             XLIB::DISPLAY-MODIFIER-MAPPING
  99.             XLIB::DISPLAY-KEYSYM-TRANSLATION XLIB:DISPLAY-ROOTS
  100.             XLIB:SCREEN-PLIST XLIB:DISPLAY-REPORT-ASYNCHRONOUS-ERRORS
  101.             XLIB:IMAGE-XY-BITMAP-LIST XLIB:FONT-PLIST XLIB:IMAGE-PLIST
  102.             XLIB:GCONTEXT-PLIST XLIB:VISUAL-INFO-PLIST)) 
  103. (PROCLAIM
  104.     '(FTYPE (FUNCTION (T)
  105.                 (MEMBER :STATIC-GRAY :STATIC-COLOR :TRUE-COLOR
  106.                         :GRAY-SCALE :PSEUDO-COLOR :DIRECT-COLOR))
  107.             XLIB:VISUAL-INFO-CLASS)) 
  108. (PROCLAIM
  109.     '(FTYPE (FUNCTION (T) (MEMBER 8 16 32)) XLIB:BITMAP-FORMAT-PAD
  110.             XLIB:PIXMAP-FORMAT-SCANLINE-PAD XLIB::IMAGE-X-UNIT
  111.             XLIB::IMAGE-X-PAD XLIB:BITMAP-FORMAT-UNIT)) 
  112. (PROCLAIM
  113.     '(FTYPE (FUNCTION (T INTEGER *) T) XLIB:UNDEFINE-KEYSYM
  114.             XLIB:DEFINE-KEYSYM)) 
  115. (PROCLAIM '(FTYPE (FUNCTION (T) XLIB:PIXARRAY) XLIB:IMAGE-Z-PIXARRAY)) 
  116. (PROCLAIM
  117.     '(FTYPE (FUNCTION (T) XLIB:PIXEL) XLIB:SCREEN-BLACK-PIXEL
  118.             XLIB::STANDARD-COLORMAP-BASE-PIXEL
  119.             XLIB:VISUAL-INFO-BLUE-MASK XLIB:VISUAL-INFO-GREEN-MASK
  120.             XLIB:VISUAL-INFO-RED-MASK XLIB:SCREEN-WHITE-PIXEL)) 
  121. (PROCLAIM
  122.     '(FTYPE (FUNCTION (T) XLIB:RESOURCE-ID)
  123.             XLIB::DISPLAY-RESOURCE-ID-COUNT XLIB:GCONTEXT-ID
  124.             XLIB:COLORMAP-ID XLIB:CURSOR-ID
  125.             XLIB:DISPLAY-RESOURCE-ID-MASK XLIB:DISPLAY-RESOURCE-ID-BASE
  126.             XLIB:VISUAL-INFO-ID)) 
  127. (PROCLAIM
  128.     '(FTYPE (FUNCTION (T) (MEMBER 1 4 8 16 24 32))
  129.             XLIB::IMAGE-X-BITS-PER-PIXEL XLIB:IMAGE-Z-BITS-PER-PIXEL
  130.             XLIB:PIXMAP-FORMAT-BITS-PER-PIXEL)) 
  131. (PROCLAIM
  132.     '(FTYPE (FUNCTION (T) (MEMBER :NEVER :WHEN-MAPPED :ALWAYS))
  133.             XLIB:SCREEN-BACKING-STORES)) 
  134. (PROCLAIM
  135.     '(FTYPE (FUNCTION (T) XLIB:MASK32) XLIB:SCREEN-EVENT-MASK-AT-OPEN)) 
  136. (PROCLAIM
  137.     '(FTYPE (FUNCTION ((VECTOR UNSIGNED-CHAR) FIXNUM T) T)
  138.             XLIB::READ-BITVECTOR256)) 
  139. (PROCLAIM
  140.     '(FTYPE (FUNCTION (T INTEGER BIT-VECTOR) T) XLIB:KEYSYM-IN-MAP-P)) 
  141. (PROCLAIM '(FTYPE (FUNCTION (T) SEQUENCE) XLIB:DISPLAY-PIXMAP-FORMATS)) 
  142. (PROCLAIM
  143.     '(FTYPE (FUNCTION (T) VECTOR) XLIB::DISPLAY-EVENT-EXTENSIONS)) 
  144. (PROCLAIM '(FTYPE (FUNCTION (T) SYMBOL) XLIB::GCONTEXT-EXTENSION-NAME)) 
  145. (PROCLAIM '(FTYPE (FUNCTION (T INTEGER T) T) XLIB::SAVE-ID)) 
  146. (PROCLAIM
  147.     '(FTYPE (FUNCTION (T) (VALUES T T)) XLIB::KINTERN XLIB::GETIFY
  148.             XLIB::CANONICALIZE-EVENT-NAME)) 
  149. (PROCLAIM
  150.     '(FTYPE (FUNCTION ((VECTOR UNSIGNED-CHAR) FIXNUM FIXNUM T *) T)
  151.             XLIB::READ-SEQUENCE-STRING)) 
  152. (PROCLAIM
  153.     '(FTYPE (FUNCTION
  154.                 ((VECTOR UNSIGNED-CHAR) FIXNUM (ARRAY UNSIGNED-SHORT) T
  155.                  T FIXNUM FIXNUM FIXNUM FIXNUM)
  156.                 T)
  157.             XLIB::READ-PIXARRAY-16)) 
  158. (PROCLAIM
  159.     '(FTYPE (FUNCTION
  160.                 ((VECTOR UNSIGNED-CHAR) FIXNUM (ARRAY FIXNUM) T T
  161.                  FIXNUM FIXNUM FIXNUM FIXNUM)
  162.                 T)
  163.             XLIB::READ-PIXARRAY-24)) 
  164. (PROCLAIM
  165.     '(FTYPE (FUNCTION
  166.                 ((VECTOR UNSIGNED-CHAR) FIXNUM (ARRAY T) T T FIXNUM
  167.                  FIXNUM FIXNUM FIXNUM)
  168.                 T)
  169.             XLIB::READ-PIXARRAY-32)) 
  170. (PROCLAIM
  171.     '(FTYPE (FUNCTION
  172.                 ((VECTOR UNSIGNED-CHAR) FIXNUM FIXNUM T FIXNUM FIXNUM
  173.                  FIXNUM FIXNUM FIXNUM FIXNUM T T FIXNUM)
  174.                 T)
  175.             XLIB::READ-XY-FORMAT-IMAGE-X)) 
  176. (PROCLAIM
  177.     '(FTYPE (FUNCTION (T) (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP))
  178.             XLIB::IMAGE-X-FORMAT)) 
  179. (PROCLAIM
  180.     '(FTYPE (FUNCTION
  181.                 ((VECTOR UNSIGNED-CHAR) FIXNUM FIXNUM T FIXNUM FIXNUM
  182.                  FIXNUM FIXNUM FIXNUM T T FIXNUM FIXNUM)
  183.                 T)
  184.             XLIB::READ-Z-FORMAT-IMAGE-X)) 
  185. (PROCLAIM
  186.     '(FTYPE (FUNCTION
  187.                 ((VECTOR UNSIGNED-CHAR) FIXNUM FIXNUM T FIXNUM FIXNUM
  188.                  FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM T T)
  189.                 T)
  190.             XLIB::READ-IMAGE-XY XLIB::READ-IMAGE-Z)) 
  191. (PROCLAIM
  192.     '(FTYPE (FUNCTION
  193.                 ((VECTOR UNSIGNED-CHAR) FIXNUM (ARRAY BIT) FIXNUM
  194.                  FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM)
  195.                 T)
  196.             XLIB::READ-PIXARRAY-1 XLIB::WRITE-PIXARRAY-1)) 
  197. (PROCLAIM
  198.     '(FTYPE (FUNCTION
  199.                 ((VECTOR UNSIGNED-CHAR) FIXNUM (ARRAY UNSIGNED-CHAR)
  200.                  FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM)
  201.                 T)
  202.             XLIB::READ-PIXARRAY-4 XLIB::READ-PIXARRAY-8
  203.             XLIB::WRITE-PIXARRAY-4 XLIB::WRITE-PIXARRAY-8)) 
  204. (PROCLAIM
  205.     '(FTYPE (FUNCTION
  206.                 ((VECTOR UNSIGNED-CHAR) FIXNUM (ARRAY UNSIGNED-SHORT)
  207.                  FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM)
  208.                 T)
  209.             XLIB::WRITE-PIXARRAY-16)) 
  210. (PROCLAIM
  211.     '(FTYPE (FUNCTION
  212.                 ((VECTOR UNSIGNED-CHAR) FIXNUM (ARRAY FIXNUM) FIXNUM
  213.                  FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM)
  214.                 T)
  215.             XLIB::WRITE-PIXARRAY-24)) 
  216. (PROCLAIM
  217.     '(FTYPE (FUNCTION
  218.                 ((VECTOR UNSIGNED-CHAR) FIXNUM (ARRAY T) FIXNUM FIXNUM
  219.                  FIXNUM FIXNUM FIXNUM FIXNUM)
  220.                 T)
  221.             XLIB::WRITE-PIXARRAY-32)) 
  222. (PROCLAIM
  223.     '(FTYPE (FUNCTION (T INTEGER INTEGER) T) XLIB:DEFINE-KEYSYM-SET)) 
  224. (PROCLAIM
  225.     '(FTYPE (FUNCTION (T (VECTOR T)) FIXNUM)
  226.             XLIB::PUT-WINDOW-ATTRIBUTE-CHANGES
  227.             XLIB::PUT-DRAWABLE-GEOMETRY-CHANGES)) 
  228. (PROCLAIM
  229.     '(FTYPE (FUNCTION (T) HASH-TABLE) XLIB::DISPLAY-ATOM-ID-MAP
  230.             XLIB::DISPLAY-ATOM-CACHE XLIB::DISPLAY-RESOURCE-ID-MAP)) 
  231. (PROCLAIM '(FTYPE (FUNCTION (T *) (VALUES T T)) XLIB::PUTIFY)) 
  232. (PROCLAIM
  233.     '(FTYPE (FUNCTION (T T) FIXNUM) XLIB:WITHDRAW-WINDOW
  234.             XLIB::BYTE-REF16 XLIB:DELETE-PROPERTY XLIB:ICONIFY-WINDOW)) 
  235. (PROCLAIM
  236.     '(FTYPE (FUNCTION (T FIXNUM) T) XLIB::LOOKUP-XATOM
  237.             XLIB::BUFFER-ENSURE-SIZE XLIB::BUFFER-PAD-REQUEST
  238.             XLIB::GET-ERROR-KEY XLIB::SET-GCONTEXT-FUNCTION
  239.             XLIB::SET-GCONTEXT-LINE-WIDTH XLIB::SET-GCONTEXT-TS-X
  240.             XLIB::SET-GCONTEXT-TS-Y XLIB::SET-GCONTEXT-CLIP-X
  241.             XLIB::SET-GCONTEXT-CLIP-Y XLIB::SET-GCONTEXT-DASH-OFFSET
  242.             XLIB:VISUAL-INFO)) 
  243. (PROCLAIM '(FTYPE (FUNCTION ((VECTOR T) T) T) XLIB::DECODE-WM-HINTS)) 
  244. (PROCLAIM
  245.     '(FTYPE (FUNCTION (T T) (VALUES T T)) XLIB::LOOKUP-RESOURCE-ID
  246.             XLIB::ATOM-ID)) 
  247. (PROCLAIM '(FTYPE (FUNCTION (INTEGER) *) XLIB::CARD32->INT32)) 
  248. (PROCLAIM
  249.     '(FTYPE (FUNCTION (FIXNUM) FIXNUM) XLIB::INT16->CARD16
  250.             XLIB::CARD8->INT8 XLIB::INT8->CARD8 XLIB::CARD16->INT16)) 
  251. (PROCLAIM
  252.     '(FTYPE (FUNCTION (T) XLIB:ARRAY-INDEX) XLIB::BUFFER-BOFFSET
  253.             XLIB::REPLY-SIZE XLIB::REPLY-DATA-SIZE XLIB::BUFFER-SIZE)) 
  254. (PROCLAIM
  255.     '(FTYPE (FUNCTION (T) (ARRAY XLIB:CARD8 (*))) XLIB::IMAGE-X-DATA)) 
  256. (PROCLAIM
  257.     '(FTYPE (FUNCTION (T) XLIB:DRAW-DIRECTION)
  258.             XLIB::FONT-INFO-DIRECTION)) 
  259. (PROCLAIM '(FTYPE (FUNCTION (T) INTEGER) XLIB:DISPLAY-DISPLAY)) 
  260. (PROCLAIM
  261.     '(FTYPE (FUNCTION (T) XLIB:INT16) XLIB::FONT-INFO-ASCENT
  262.             XLIB::FONT-INFO-DESCENT)) 
  263. (PROCLAIM
  264.     '(FTYPE (FUNCTION (INTEGER) T) XLIB:MAKE-EVENT-KEYS XLIB:KEYSYM-SET
  265.             XLIB::KEYSYM-DOWNCASE XLIB::KEYSYM-UPPERCASE-ALPHABETIC-P)) 
  266. (PROCLAIM
  267.     '(FTYPE (FUNCTION (T) (OR NULL (NOT NULL))) XLIB::BUFFER-DEAD
  268.             XLIB::BUFFER-FLUSH-INHIBIT)) 
  269. (PROCLAIM
  270.     '(FTYPE (FUNCTION (T) (OR NULL STREAM)) XLIB::BUFFER-INPUT-STREAM
  271.             XLIB::BUFFER-OUTPUT-STREAM)) 
  272. (PROCLAIM
  273.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:COLOR))
  274.             XLIB::STANDARD-COLORMAP-MAX-COLOR
  275.             XLIB::STANDARD-COLORMAP-MULT-COLOR)) 
  276. (PROCLAIM
  277.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:DISPLAY)) XLIB:CURSOR-DISPLAY
  278.             XLIB:FONT-DISPLAY XLIB:GCONTEXT-DISPLAY
  279.             XLIB:COLORMAP-DISPLAY XLIB:VISUAL-INFO-DISPLAY)) 
  280. (PROCLAIM
  281.     '(FTYPE (FUNCTION (T)
  282.                 (OR (MEMBER NIL :RELEASE-BY-FREEING-COLORMAP)
  283.                     XLIB:DRAWABLE XLIB:GCONTEXT XLIB:CURSOR
  284.                     XLIB:COLORMAP XLIB:FONT))
  285.             XLIB::STANDARD-COLORMAP-KILL)) 
  286. (PROCLAIM
  287.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:DRAWABLE))
  288.             XLIB::GCONTEXT-DRAWABLE)) 
  289. (PROCLAIM
  290.     '(FTYPE (FUNCTION (T) (OR NULL XLIB::PENDING-COMMAND))
  291.             XLIB::PENDING-COMMAND-NEXT)) 
  292. (PROCLAIM
  293.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:GCONTEXT)) XLIB::GCONTEXT-NEXT)) 
  294. (PROCLAIM
  295.     '(FTYPE (FUNCTION (T) (OR NULL VECTOR)) XLIB::FONT-INFO-MIN-BOUNDS
  296.             XLIB::FONT-INFO-MAX-BOUNDS)) 
  297. (PROCLAIM
  298.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:RESOURCE-ID))
  299.             XLIB:WM-HINTS-WINDOW-GROUP XLIB::FONT-ID-INTERNAL)) 
  300. (PROCLAIM
  301.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:INT16)) XLIB:WM-SIZE-HINTS-Y
  302.             XLIB:WM-SIZE-HINTS-X)) 
  303. (PROCLAIM
  304.     '(FTYPE (FUNCTION (T) (OR NULL XLIB::FONT-INFO))
  305.             XLIB::FONT-FONT-INFO-INTERNAL)) 
  306. (PROCLAIM
  307.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:CARD16))
  308.             XLIB:WM-SIZE-HINTS-BASE-WIDTH XLIB:WM-SIZE-HINTS-MAX-WIDTH
  309.             XLIB:WM-SIZE-HINTS-MIN-WIDTH XLIB:WM-SIZE-HINTS-WIDTH
  310.             XLIB:WM-SIZE-HINTS-HEIGHT-INC XLIB:WM-SIZE-HINTS-WIDTH-INC
  311.             XLIB:WM-HINTS-ICON-Y XLIB:WM-SIZE-HINTS-BASE-HEIGHT
  312.             XLIB:WM-SIZE-HINTS-HEIGHT XLIB:WM-SIZE-HINTS-MAX-HEIGHT
  313.             XLIB:WM-SIZE-HINTS-MIN-HEIGHT XLIB:WM-HINTS-ICON-X)) 
  314. (PROCLAIM
  315.     '(FTYPE (FUNCTION (T) (OR NULL (SIMPLE-ARRAY XLIB:INT16 (*))))
  316.             XLIB::FONT-CHAR-INFOS-INTERNAL)) 
  317. (PROCLAIM
  318.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:COLORMAP))
  319.             XLIB:SCREEN-DEFAULT-COLORMAP
  320.             XLIB::STANDARD-COLORMAP-COLORMAP)) 
  321. (PROCLAIM
  322.     '(FTYPE (FUNCTION (T) (UNSIGNED-BYTE 16))
  323.             XLIB::BUFFER-REQUEST-NUMBER)) 
  324. (PROCLAIM
  325.     '(FTYPE (FUNCTION (T) UNSIGNED-SHORT) XLIB::IMAGE-X-WIDTH
  326.             XLIB::IMAGE-X-HEIGHT XLIB::IMAGE-XY-WIDTH
  327.             XLIB::DISPLAY-REQUEST-NUMBER XLIB::IMAGE-XY-HEIGHT
  328.             XLIB::IMAGE-Z-WIDTH XLIB::IMAGE-Z-HEIGHT)) 
  329. (PROCLAIM
  330.     '(FTYPE (FUNCTION (T) (OR NULL (MEMBER :OFF :ON)))
  331.             XLIB:WM-HINTS-INPUT)) 
  332. (PROCLAIM
  333.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:WINDOW))
  334.             XLIB:WM-HINTS-ICON-WINDOW XLIB:SCREEN-ROOT)) 
  335. (PROCLAIM
  336.     '(FTYPE (FUNCTION (T) UNSIGNED-CHAR) XLIB::IMAGE-X-DEPTH
  337.             XLIB::IMAGE-XY-DEPTH XLIB::IMAGE-Z-DEPTH)) 
  338. (PROCLAIM
  339.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:VISUAL-INFO))
  340.             XLIB:SCREEN-ROOT-VISUAL-INFO XLIB:COLORMAP-VISUAL-INFO
  341.             XLIB::STANDARD-COLORMAP-VISUAL)) 
  342. (PROCLAIM
  343.     '(FTYPE (FUNCTION (T) (OR NULL XLIB::REPLY-BUFFER))
  344.             XLIB::DISPLAY-NEW-EVENTS XLIB::REPLY-NEXT
  345.             XLIB::PENDING-COMMAND-REPLY-BUFFER
  346.             XLIB::DISPLAY-EVENT-QUEUE-TAIL
  347.             XLIB::DISPLAY-EVENT-QUEUE-HEAD)) 
  348. (PROCLAIM
  349.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:CARD29))
  350.             XLIB::DISPLAY-LAST-WIDTH)) 
  351. (PROCLAIM
  352.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:ARRAY-INDEX))
  353.             XLIB::BUFFER-LAST-REQUEST
  354.             XLIB::BUFFER-LAST-FLUSHED-REQUEST)) 
  355. (PROCLAIM
  356.     '(FTYPE (FUNCTION (T) (OR NULL (ARRAY * (* *))))
  357.             XLIB::DISPLAY-KEYSYM-MAPPING)) 
  358. (PROCLAIM
  359.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:PIXMAP))
  360.             XLIB:WM-HINTS-ICON-MASK XLIB:WM-HINTS-ICON-PIXMAP)) 
  361. (PROCLAIM
  362.     '(FTYPE (FUNCTION (T) (OR NULL XLIB:WIN-GRAVITY))
  363.             XLIB:WM-SIZE-HINTS-WIN-GRAVITY)) 
  364. (PROCLAIM
  365.     '(FTYPE (FUNCTION (T) (OR NULL NUMBER))
  366.             XLIB:WM-SIZE-HINTS-MAX-ASPECT
  367.             XLIB:WM-SIZE-HINTS-MIN-ASPECT)) 
  368. (PROCLAIM
  369.     '(FTYPE (FUNCTION (T)
  370.                 (OR NULL
  371.                     (MEMBER :DONT-CARE :NORMAL :ZOOM :ICONIC :INACTIVE)))
  372.             XLIB:WM-HINTS-INITIAL-STATE)) 
  373. (PROCLAIM '(FTYPE (FUNCTION (T) (OR NULL STRING)) XLIB:FONT-NAME)) 
  374. (PROCLAIM '(FTYPE (FUNCTION (T INTEGER) *) XLIB:KEYSYM->KEYCODES)) 
  375. (PROCLAIM
  376.     '(FTYPE (FUNCTION (T FIXNUM) FIXNUM) XLIB:KILL-CLIENT
  377.             XLIB::AREF-CARD8 XLIB::AREF-INT8 XLIB::AREF-CARD29
  378.             XLIB::AREF-INT16 XLIB::AREF-CARD16
  379.             XLIB::GET-INTERNAL-EVENT-CODE XLIB::AREF-INT32)) 
  380. (PROCLAIM '(FTYPE (FUNCTION (FIXNUM T) (VALUES T T)) XLIB::ID-ATOM)) 
  381. (PROCLAIM
  382.     '(FTYPE (FUNCTION (T INTEGER) T) XLIB::SET-GCONTEXT-PLANE-MASK
  383.             XLIB::SET-GCONTEXT-FOREGROUND
  384.             XLIB::SET-GCONTEXT-BACKGROUND)) 
  385. (PROCLAIM
  386.     '(FTYPE (FUNCTION ((VECTOR UNSIGNED-CHAR) FIXNUM) T)
  387.             XLIB::AREF-CARD32 XLIB::BYTE-REF32)) 
  388. (PROCLAIM
  389.     '(FTYPE (FUNCTION (T (VECTOR UNSIGNED-CHAR) FIXNUM FIXNUM T) T)
  390.             XLIB::BUFFER-READ-DEFAULT)) 
  391. (PROCLAIM
  392.     '(FTYPE (FUNCTION (T STRING FIXNUM FIXNUM) *)
  393.             XLIB::TEXT-EXTENTS-SERVER XLIB::TEXT-WIDTH-SERVER)) 
  394. (PROCLAIM
  395.     '(FTYPE (FUNCTION (T T T) *) XLIB::UNMAP-NOTIFY-EVENT-GET
  396.             XLIB::MAP-NOTIFY-EVENT-GET XLIB::MAP-REQUEST-EVENT-GET
  397.             XLIB::REPARENT-NOTIFY-EVENT-GET
  398.             XLIB::MOTION-NOTIFY-EVENT-GET
  399.             XLIB::WITH-EVENT-QUEUE-FUNCTION
  400.             XLIB::CONFIGURE-NOTIFY-EVENT-GET
  401.             XLIB::CONFIGURE-REQUEST-EVENT-GET
  402.             XLIB::GRAVITY-NOTIFY-EVENT-GET
  403.             XLIB::RESIZE-REQUEST-EVENT-GET
  404.             XLIB::CIRCULATE-NOTIFY-EVENT-GET
  405.             XLIB::CIRCULATE-REQUEST-EVENT-GET
  406.             XLIB::PROPERTY-NOTIFY-EVENT-GET
  407.             XLIB::SELECTION-CLEAR-EVENT-GET
  408.             XLIB::ENTER-NOTIFY-EVENT-GET
  409.             XLIB::SELECTION-REQUEST-EVENT-GET XLIB::KEY-PRESS-EVENT-GET
  410.             XLIB::FOCUS-IN-EVENT-GET XLIB::SELECTION-NOTIFY-EVENT-GET
  411.             XLIB::KEYMAP-NOTIFY-EVENT-GET
  412.             XLIB::COLORMAP-NOTIFY-EVENT-GET XLIB::WAIT-FOR-EVENT
  413.             XLIB::EXPOSURE-EVENT-GET XLIB::CLIENT-MESSAGE-EVENT-GET
  414.             XLIB::WITH-BUFFER-FUNCTION XLIB::MAPPING-NOTIFY-EVENT-GET
  415.             XLIB::WITH-BUFFER-REQUEST-FUNCTION-NOLOCK
  416.             XLIB::WITH-BUFFER-REQUEST-FUNCTION XLIB:SET-WM-CLASS
  417.             XLIB::GRAPHICS-EXPOSURE-EVENT-GET
  418.             XLIB::NO-EXPOSURE-EVENT-GET
  419.             XLIB::VISIBILITY-NOTIFY-EVENT-GET
  420.             XLIB::CREATE-NOTIFY-EVENT-GET
  421.             XLIB::DESTROY-NOTIFY-EVENT-GET)) 
  422. (PROCLAIM
  423.     '(FTYPE (FUNCTION (T T T T) *) XLIB::EVENT-LOOP-STEP-BEFORE
  424.             XLIB::WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION)) 
  425. (PROCLAIM
  426.     '(FTYPE (FUNCTION (T T FIXNUM FIXNUM FIXNUM FIXNUM *) *)
  427.             XLIB:DRAW-LINE XLIB:DRAW-RECTANGLE)) 
  428. (PROCLAIM
  429.     '(FTYPE (FUNCTION (T T *) *) XLIB::COPY-GCONTEXT-LOCAL-STATE
  430.             XLIB::MAKE-BUFFER XLIB:MAP-RESOURCE XLIB:TEXT-WIDTH
  431.             XLIB:WM-RESOURCES XLIB:GRAB-POINTER XLIB:QUERY-COLORS
  432.             XLIB:GET-PROPERTY XLIB:WRITE-BITMAP-FILE XLIB:STORE-COLORS
  433.             XLIB:READ-RESOURCES XLIB:TEXT-EXTENTS XLIB:QUEUE-EVENT)) 
  434. (PROCLAIM
  435.     '(FTYPE (FUNCTION (T T FIXNUM FIXNUM T *) *) XLIB:DRAW-GLYPH
  436.             XLIB:DRAW-IMAGE-GLYPHS XLIB:DRAW-GLYPHS
  437.             XLIB:DRAW-IMAGE-GLYPH)) 
  438. (PROCLAIM '(FTYPE (FUNCTION (T T FIXNUM FIXNUM) *) XLIB:DRAW-POINT)) 
  439. (PROCLAIM
  440.     '(FTYPE (FUNCTION (T T T *) *) XLIB::GET-PUT-ITEMS
  441.             XLIB::REPORT-ERROR XLIB:DRAW-ARCS)) 
  442. (PROCLAIM '(FTYPE (FUNCTION (T STRING *) *) XLIB:LIST-FONT-NAMES)) 
  443. (PROCLAIM
  444.     '(FTYPE (FUNCTION (T T FIXNUM FIXNUM FIXNUM FIXNUM T T *) *)
  445.             XLIB:DRAW-ARC)) 
  446. (PROCLAIM '(FTYPE (FUNCTION (T T T T *) *) XLIB::READ-INPUT)) 
  447. (PROCLAIM
  448.     '(FTYPE (FUNCTION (T T INTEGER INTEGER T) *)
  449.             XLIB::TEXT-EXTENTS-LOCAL)) 
  450. (PROCLAIM
  451.     '(FTYPE (FUNCTION (T T FIXNUM FIXNUM T FIXNUM T T T) *)
  452.             XLIB::DRAW-GLYPHS8 XLIB::DRAW-GLYPHS16
  453.             XLIB::DRAW-IMAGE-GLYPHS8 XLIB::DRAW-IMAGE-GLYPHS16)) 
  454. (PROCLAIM
  455.     '(FTYPE (FUNCTION (T) XLIB:BOOLEAN) XLIB:SCREEN-SAVE-UNDERS-P
  456.             XLIB::WM-SIZE-HINTS-PROGRAM-SPECIFIED-POSITION-P
  457.             XLIB::WM-SIZE-HINTS-PROGRAM-SPECIFIED-SIZE-P
  458.             XLIB::FONT-INFO-ALL-CHARS-EXIST-P XLIB::FONT-LOCAL-ONLY-P
  459.             XLIB::IMAGE-X-BIT-LSB-FIRST-P
  460.             XLIB::IMAGE-X-BYTE-LSB-FIRST-P
  461.             XLIB:DISPLAY-IMAGE-LSB-FIRST-P
  462.             XLIB:WM-SIZE-HINTS-USER-SPECIFIED-SIZE-P
  463.             XLIB:BITMAP-FORMAT-LSB-FIRST-P
  464.             XLIB:WM-SIZE-HINTS-USER-SPECIFIED-POSITION-P
  465.             XLIB:GCONTEXT-CACHE-P)) 
  466. (PROCLAIM
  467.     '(FTYPE (FUNCTION (T) CONS) XLIB::DISPLAY-CURRENT-EVENT-SYMBOL)) 
  468. (PROCLAIM
  469.     '(FTYPE (FUNCTION (T) XLIB::FONT-PROPS) XLIB::FONT-INFO-PROPERTIES)) 
  470. (PROCLAIM
  471.     '(FTYPE (FUNCTION (T) XLIB::GCONTEXT-STATE)
  472.             XLIB::GCONTEXT-SERVER-STATE XLIB::GCONTEXT-LOCAL-STATE)) 
  473. (PROCLAIM
  474.     '(FTYPE (FUNCTION (T CHARACTER BIT-VECTOR) T)
  475.             XLIB:CHARACTER-IN-MAP-P)) 
  476. (PROCLAIM
  477.     '(FTYPE (FUNCTION (T) XLIB:RGB-VAL) XLIB:COLOR-RED XLIB:COLOR-BLUE
  478.             XLIB:COLOR-GREEN)) 
  479. (PROCLAIM '(FTYPE (FUNCTION (T STRING *) T) XLIB:LIST-FONTS)) 
  480. (PROCLAIM
  481.     '(FTYPE (FUNCTION (T T T) T) XLIB:ADD-RESOURCE
  482.             XLIB::SET-GCONTEXT-CLIP-MASK
  483.             XLIB::GRAPHICS-EXPOSURE-EVENT-GET-MACRO
  484.             XLIB::NO-EXPOSURE-EVENT-GET-MACRO
  485.             XLIB::PRINT-RESOURCE-DATABASE XLIB::PRINT-GCONTEXT
  486.             XLIB::VISIBILITY-NOTIFY-EVENT-GET-MACRO
  487.             XLIB::CREATE-NOTIFY-EVENT-GET-MACRO
  488.             XLIB::DESTROY-NOTIFY-EVENT-GET-MACRO
  489.             XLIB::UNMAP-NOTIFY-EVENT-GET-MACRO
  490.             XLIB::MAP-NOTIFY-EVENT-GET-MACRO XLIB::MASK-PUT
  491.             XLIB::PRINT-IMAGE XLIB::MASK-GET
  492.             XLIB::MAP-REQUEST-EVENT-GET-MACRO
  493.             XLIB::REPARENT-NOTIFY-EVENT-GET-MACRO
  494.             XLIB::SET-WINDOW-PRIORITY XLIB::SET-EVENT-HANDLER
  495.             XLIB::PRINT-DRAWABLE XLIB::CONFIGURE-NOTIFY-EVENT-GET-MACRO
  496.             XLIB::PRINT-COLOR XLIB::CONFIGURE-REQUEST-EVENT-GET-MACRO
  497.             XLIB::MAKE-COLOR-INTERNAL
  498.             XLIB::GRAVITY-NOTIFY-EVENT-GET-MACRO
  499.             XLIB::RESIZE-REQUEST-EVENT-GET-MACRO
  500.             XLIB::CIRCULATE-NOTIFY-EVENT-GET-MACRO
  501.             XLIB::CIRCULATE-REQUEST-EVENT-GET-MACRO
  502.             XLIB::KEY-PRESS-EVENT-GET-MACRO
  503.             XLIB::PROPERTY-NOTIFY-EVENT-GET-MACRO
  504.             XLIB:GET-SEARCH-RESOURCE
  505.             XLIB::SELECTION-CLEAR-EVENT-GET-MACRO
  506.             XLIB::ENTER-NOTIFY-EVENT-GET-MACRO
  507.             XLIB::SELECTION-REQUEST-EVENT-GET-MACRO
  508.             XLIB::FOCUS-IN-EVENT-GET-MACRO
  509.             XLIB::SELECTION-NOTIFY-EVENT-GET-MACRO
  510.             XLIB::MOTION-NOTIFY-EVENT-GET-MACRO XLIB::MAKE-ERROR
  511.             XLIB::KEYMAP-NOTIFY-EVENT-GET-MACRO
  512.             XLIB::COLORMAP-NOTIFY-EVENT-GET-MACRO
  513.             XLIB::EXPOSURE-EVENT-GET-MACRO
  514.             XLIB::CLIENT-MESSAGE-EVENT-GET-MACRO
  515.             XLIB::MAPPING-NOTIFY-EVENT-GET-MACRO
  516.             XLIB::UNIVERSAL-EVENT-GET-MACRO XLIB::PRINT-VISUAL-INFO
  517.             XLIB::PRINT-COLORMAP XLIB::PRINT-CURSOR XLIB::PRINT-DISPLAY
  518.             XLIB::PRINT-SCREEN XLIB::OPEN-X-STREAM
  519.             XLIB::SET-STRING-PROPERTY XLIB::PRINT-FONT
  520.             XLIB:GET-SEARCH-TABLE)) 
  521. (PROCLAIM
  522.     '(FTYPE (FUNCTION (T T T *) T) XLIB:PUT-RAW-IMAGE
  523.             XLIB::DRAW-ARCS-LIST XLIB::DRAW-ARCS-VECTOR
  524.             XLIB:SET-INPUT-FOCUS XLIB:DRAW-POINTS
  525.             XLIB:SET-SELECTION-OWNER XLIB:GRAB-BUTTON
  526.             XLIB::TRACE-ERROR-PRINT XLIB::FIND-TRACE XLIB:DRAW-LINES
  527.             XLIB:DRAW-RECTANGLES XLIB:SEND-EVENT XLIB:PUT-IMAGE
  528.             XLIB:CONVERT-SELECTION)) 
  529. (PROCLAIM '(FTYPE (FUNCTION (T T INTEGER *) T) XLIB:DESCRIBE-EVENT)) 
  530. (PROCLAIM
  531.     '(FTYPE (FUNCTION (T T *) T) XLIB:FREE-COLORS
  532.             XLIB:CHANGE-KEYBOARD-MAPPING XLIB:UNGRAB-BUTTON
  533.             XLIB:CHANGE-ACTIVE-POINTER-GRAB XLIB::X-CERROR
  534.             XLIB::X-TYPE-ERROR XLIB::SET-CUT-BUFFER XLIB::PROCESS-BLOCK
  535.             XLIB:GRAB-KEY XLIB:ROTATE-PROPERTIES
  536.             XLIB:DEFAULT-ERROR-HANDLER XLIB:COPY-GCONTEXT-COMPONENTS
  537.             XLIB:REMOVE-ACCESS-HOST XLIB:SET-WM-RESOURCES
  538.             XLIB:ALLOW-EVENTS XLIB:DECODE-CORE-ERROR XLIB:IMAGE-PIXMAP
  539.             XLIB:WRITE-RESOURCES XLIB:ADD-ACCESS-HOST XLIB:UNGRAB-KEY
  540.             XLIB:CREATE-COLORMAP)) 
  541. (PROCLAIM
  542.     '(FTYPE (FUNCTION (T T T T FIXNUM *) T) XLIB:CHANGE-PROPERTY)) 
  543. (PROCLAIM
  544.     '(FTYPE (FUNCTION (T T FIXNUM FIXNUM) T) XLIB::BUFFER-WRITE
  545.             XLIB:MAPPING-NOTIFY)) 
  546. (PROCLAIM
  547.     '(FTYPE (FUNCTION (T T T T T *) T) XLIB::EVENT-LOOP-STEP-AFTER)) 
  548. (PROCLAIM
  549.     '(FTYPE (FUNCTION (T T FIXNUM FIXNUM *) T) XLIB::BUFFER-INPUT)) 
  550. (PROCLAIM
  551.     '(FTYPE (FUNCTION (T T FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM T T T) T)
  552.             XLIB::WRITE-Z-FORMAT-IMAGE-X)) 
  553. (PROCLAIM
  554.     '(FTYPE (FUNCTION (T T T T T) T)
  555.             XLIB::PRINT-UNREADABLE-OBJECT-FUNCTION
  556.             XLIB::TRACE-MORE-INFO XLIB:GET-RESOURCE)) 
  557. (PROCLAIM
  558.     '(FTYPE (FUNCTION
  559.                 (T T FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM T T) T)
  560.             XLIB::WRITE-XY-FORMAT-IMAGE-X XLIB::WRITE-IMAGE-XY
  561.             XLIB::WRITE-IMAGE-Z)) 
  562. (PROCLAIM
  563.     '(FTYPE (FUNCTION (T T FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM) T)
  564.             XLIB::FAST-COPY-PIXARRAY)) 
  565. (PROCLAIM
  566.     '(FTYPE (FUNCTION (T T T T) T) XLIB::PRINT-VALUE
  567.             XLIB::ADD-GCONTEXT-EXTENSION XLIB::GET-ENTRY
  568.             XLIB::GET-ENTRY-LOOKUP XLIB::GET-TABLES
  569.             XLIB::GET-TABLES-LOOKUP XLIB::TRACE-READ-HOOK
  570.             XLIB::TRACE-WRITE-HOOK)) 
  571. (PROCLAIM
  572.     '(FTYPE (FUNCTION (T T FIXNUM *) T) XLIB::READ-SEQUENCE-CHAR
  573.             XLIB::READ-SEQUENCE-CARD8 XLIB::READ-SEQUENCE-INT8
  574.             XLIB::READ-SEQUENCE-CARD16 XLIB::READ-SEQUENCE-INT16
  575.             XLIB::READ-SEQUENCE-CARD32 XLIB::READ-SEQUENCE-INT32)) 
  576. (PROCLAIM '(FTYPE (FUNCTION ((VECTOR T) INTEGER) T) XLIB::DECODE-MASK)) 
  577. (PROCLAIM '(FTYPE (FUNCTION NIL *) XLIB::ALLOCATE-GCONTEXT-STATE)) 
  578. (PROCLAIM
  579.     '(FTYPE (FUNCTION
  580.                 ((VECTOR UNSIGNED-CHAR) (VECTOR UNSIGNED-CHAR) FIXNUM
  581.                  FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM
  582.                  FIXNUM T T FIXNUM T T)
  583.                 *)
  584.             XLIB::WRITE-XY-FORMAT-IMAGE-X-DATA)) 
  585. (PROCLAIM
  586.     '(FTYPE (FUNCTION
  587.                 ((VECTOR UNSIGNED-CHAR) (VECTOR UNSIGNED-CHAR) FIXNUM
  588.                  FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM
  589.                  FIXNUM FIXNUM T T FIXNUM T T)
  590.                 *)
  591.             XLIB::WRITE-Z-FORMAT-IMAGE-X-DATA)) 
  592. (PROCLAIM
  593.     '(FTYPE (FUNCTION NIL T) XLIB:MAKE-RESOURCE-DATABASE
  594.             XLIB::ALLOCATE-TEMP-GCONTEXT XLIB::ALLOCATE-CONTEXT
  595.             XLIB::DEFAULT-RESOURCES-PATHNAME XLIB::DECLARE-BUFMAC
  596.             XLIB::RESOURCES-PATHNAME XLIB::DECLARE-BUFFUN
  597.             XLIB::GC-CLEANUP XLIB::ALLOCATE-EVENT
  598.             XLIB::CURRENT-PROCESS)) 
  599. (PROCLAIM
  600.     '(FTYPE (FUNCTION (*) *) XLIB::MAKE-DRAWABLE XLIB::MAKE-WINDOW
  601.             XLIB::MAKE-PIXMAP)) 
  602. (PROCLAIM
  603.     '(FTYPE (FUNCTION
  604.                 ((VECTOR UNSIGNED-CHAR) (VECTOR UNSIGNED-CHAR) FIXNUM
  605.                  FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM T)
  606.                 T)
  607.             XLIB::IMAGE-NOSWAP XLIB::IMAGE-SWAP-BITS-AND-TWO-BYTES
  608.             XLIB::IMAGE-SWAP-BITS XLIB::IMAGE-SWAP-BITS-AND-FOUR-BYTES
  609.             XLIB::IMAGE-SWAP-TWO-BYTES XLIB::IMAGE-SWAP-FOUR-BYTES
  610.             XLIB::IMAGE-SWAP-WORDS XLIB::IMAGE-SWAP-BITS-AND-WORDS
  611.             XLIB::IMAGE-SWAP-NIBBLES XLIB::IMAGE-SWAP-THREE-BYTES
  612.             XLIB::IMAGE-SWAP-NIBBLES-LEFT)) 
  613. (PROCLAIM
  614.     '(FTYPE (FUNCTION
  615.                 ((VECTOR UNSIGNED-CHAR) (VECTOR UNSIGNED-CHAR) FIXNUM
  616.                  FIXNUM *)
  617.                 T)
  618.             XLIB::BUFFER-REPLACE)) 
  619. (PROCLAIM
  620.     '(FTYPE (FUNCTION (T FIXNUM FIXNUM T) *) XLIB::READ-REPLY-INPUT
  621.             XLIB:TRANSLATE-COORDINATES)) 
  622. (PROCLAIM
  623.     '(FTYPE (FUNCTION (T FIXNUM FIXNUM FIXNUM FIXNUM) *)
  624.             XLIB::IMAGE-X->IMAGE-X)) 
  625. (PROCLAIM
  626.     '(FTYPE (FUNCTION (T FIXNUM *) *) XLIB:ALLOC-COLOR-PLANES
  627.             XLIB:ALLOC-COLOR-CELLS)) 
  628. (PROCLAIM
  629.     '(FTYPE (FUNCTION (T FIXNUM FIXNUM *) *) XLIB:KEYCODE->CHARACTER)) 
  630. (PROCLAIM
  631.     '(FTYPE (FUNCTION (*) T) XLIB::MAKE-DISPLAY-INTERNAL
  632.             XLIB::|__si::MAKE-BUFFER| XLIB::MAKE-FONT XLIB::MAKE-SCREEN
  633.             XLIB::MAKE-FONT-INFO XLIB::MAKE-FONT-INTERNAL
  634.             XLIB::MAKE-GCONTEXT-EXTENSION XLIB:CREATE-GLYPH-CURSOR
  635.             XLIB:MAKE-WM-HINTS XLIB:BITMAP-IMAGE XLIB:MAKE-STATE-MASK
  636.             XLIB:CREATE-PIXMAP XLIB:CREATE-IMAGE XLIB:MAKE-EVENT-MASK
  637.             XLIB:MAKE-EVENT-HANDLERS XLIB:CREATE-WINDOW
  638.             XLIB::MAKE-RESOURCE-DATABASE-INTERNAL XLIB::MAKE-GCONTEXT
  639.             XLIB::|__si::MAKE-IMAGE| XLIB::MAKE-IMAGE-X
  640.             XLIB::MAKE-IMAGE-XY XLIB:CREATE-GCONTEXT XLIB:DISPLAY-TRACE
  641.             XLIB:MAKE-COLOR XLIB:CREATE-CURSOR XLIB::MAKE-IMAGE-Z
  642.             XLIB::MAKE-REPLY-BUFFER-INTERNAL XLIB::|__si::MAKE-COLOR|
  643.             XLIB::MAKE-BITMAP-FORMAT XLIB:MAKE-WM-SIZE-HINTS
  644.             XLIB::MAKE-PIXMAP-FORMAT XLIB::MAKE-STANDARD-COLORMAP
  645.             XLIB::MAKE-PENDING-COMMAND XLIB::MAKE-VISUAL-INFO
  646.             XLIB::MAKE-COLORMAP XLIB::MAKE-CURSOR)) 
  647. (PROCLAIM
  648.     '(FTYPE (FUNCTION (T) *) XLIB:POINTER-POSITION XLIB:WM-NAME
  649.             XLIB::WITH-STANDARD-IO-SYNTAX-FUNCTION
  650.             XLIB::CLEANUP-STATE-ENTRY
  651.             XLIB::GET-WINDOW-ATTRIBUTES-BUFFER
  652.             XLIB::GET-DRAWABLE-GEOMETRY-BUFFER XLIB::EVENT-LOOP-SETUP
  653.             XLIB::BUFFER-LISTEN XLIB:READ-BITMAP-FILE
  654.             XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB:GCONTEXT-CLIP-MASK
  655.             XLIB:INPUT-FOCUS XLIB:POINTER-CONTROL XLIB:GCONTEXT-STIPPLE
  656.             XLIB:ACCESS-CONTROL XLIB:GET-WM-CLASS XLIB:TRANSIENT-FOR
  657.             XLIB:WM-CLIENT-MACHINE XLIB:SCREEN-SAVER
  658.             XLIB:KEYBOARD-CONTROL XLIB:RESOURCE-KEY
  659.             XLIB:DISPLAY-PROTOCOL-VERSION XLIB:COLOR-RGB
  660.             XLIB:GCONTEXT-TILE XLIB:DISPLAY-VENDOR XLIB:WM-ICON-NAME
  661.             XLIB:DISPLAY-FINISH-OUTPUT XLIB:MODIFIER-MAPPING
  662.             XLIB:QUERY-POINTER XLIB:DISPLAY-KEYCODE-RANGE
  663.             XLIB:GLOBAL-POINTER-POSITION)) 
  664. (PROCLAIM
  665.     '(FTYPE (FUNCTION (T)
  666.                 (XLIB:ALIST (XLIB:IMAGE-DEPTH XLIB::DEPTH)
  667.                     ((LIST XLIB:VISUAL-INFO) XLIB::VISUALS)))
  668.             XLIB:SCREEN-DEPTHS)) 
  669. (PROCLAIM
  670.     '(FTYPE (FUNCTION (T FIXNUM FIXNUM FIXNUM FIXNUM) T)
  671.             XLIB::IMAGE-XY->IMAGE-X XLIB::IMAGE-XY->IMAGE-XY
  672.             XLIB::IMAGE-XY->IMAGE-Z XLIB::IMAGE-Z->IMAGE-X
  673.             XLIB::IMAGE-Z->IMAGE-XY XLIB::IMAGE-Z->IMAGE-Z
  674.             XLIB::XY-FORMAT-IMAGE-X->IMAGE-X
  675.             XLIB::Z-FORMAT-IMAGE-X->IMAGE-X XLIB::IMAGE-X->IMAGE-XY
  676.             XLIB::IMAGE-X->IMAGE-Z)) 
  677. (PROCLAIM
  678.     '(FTYPE (FUNCTION
  679.                 (T FIXNUM (VECTOR UNSIGNED-SHORT) FIXNUM FIXNUM T) T)
  680.             XLIB::WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM
  681.             XLIB::WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM)) 
  682. (PROCLAIM
  683.     '(FTYPE (FUNCTION (T FIXNUM (VECTOR UNSIGNED-SHORT) FIXNUM FIXNUM)
  684.                 T)
  685.             XLIB::WRITE-SIMPLE-ARRAY-CHAR2B
  686.             XLIB::READ-SIMPLE-ARRAY-CARD16
  687.             XLIB::WRITE-SIMPLE-ARRAY-CARD16)) 
  688. (PROCLAIM
  689.     '(FTYPE (FUNCTION (T FIXNUM (VECTOR UNSIGNED-CHAR) FIXNUM FIXNUM T)
  690.                 T)
  691.             XLIB::WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM)) 
  692. (PROCLAIM
  693.     '(FTYPE (FUNCTION (T T T T T) FIXNUM) XLIB:SET-SCREEN-SAVER
  694.             XLIB::FILL-POLYGON)) 
  695. (PROCLAIM
  696.     '(FTYPE (FUNCTION (T FIXNUM (VECTOR UNSIGNED-CHAR) FIXNUM FIXNUM)
  697.                 T)
  698.             XLIB::READ-SIMPLE-ARRAY-CARD8
  699.             XLIB::WRITE-SIMPLE-ARRAY-CARD8)) 
  700. (PROCLAIM
  701.     '(FTYPE (FUNCTION (T FIXNUM (VECTOR SIGNED-SHORT) FIXNUM FIXNUM T)
  702.                 T)
  703.             XLIB::WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM)) 
  704. (PROCLAIM
  705.     '(FTYPE (FUNCTION (T FIXNUM (VECTOR SIGNED-SHORT) FIXNUM FIXNUM) T)
  706.             XLIB::WRITE-SIMPLE-ARRAY-INT16)) 
  707. (PROCLAIM
  708.     '(FTYPE (FUNCTION (T *) *) XLIB:EVENT-LISTEN XLIB:QUERY-TREE
  709.             XLIB:GET-IMAGE XLIB:GRAB-KEYBOARD XLIB:QUERY-KEYMAP
  710.             XLIB:FONT-PATH XLIB:INSTALLED-COLORMAPS XLIB:PROCESS-EVENT
  711.             XLIB:MOTION-EVENTS XLIB:POINTER-MAPPING
  712.             XLIB:SET-MODIFIER-MAPPING XLIB:CUT-BUFFER XLIB:ACCESS-HOSTS
  713.             XLIB::CLIENT-MESSAGE-EVENT-PUT XLIB:GET-RAW-IMAGE
  714.             XLIB:LIST-EXTENSIONS)) 
  715. (PROCLAIM
  716.     '(FTYPE (FUNCTION (T FIXNUM (VECTOR T) FIXNUM FIXNUM T) T)
  717.             XLIB::WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM)) 
  718. (PROCLAIM
  719.     '(FTYPE (FUNCTION (T FIXNUM (VECTOR T) FIXNUM FIXNUM) T)
  720.             XLIB::READ-SIMPLE-ARRAY-CARD32
  721.             XLIB::WRITE-SIMPLE-ARRAY-CARD32)) 
  722. (PROCLAIM
  723.     '(FTYPE (FUNCTION (T FIXNUM T FIXNUM FIXNUM) T)
  724.             XLIB::WRITE-LIST-CHAR2B XLIB::WRITE-VECTOR-CHAR2B
  725.             XLIB::READ-LIST-CARD8 XLIB::READ-VECTOR-CARD8
  726.             XLIB::READ-LIST-CARD16 XLIB::READ-VECTOR-CARD16
  727.             XLIB::READ-LIST-CARD32 XLIB::READ-VECTOR-CARD32
  728.             XLIB::WRITE-LIST-CARD8 XLIB::WRITE-VECTOR-CARD8
  729.             XLIB::WRITE-LIST-CARD16 XLIB::WRITE-VECTOR-CARD16
  730.             XLIB::WRITE-LIST-INT16 XLIB::WRITE-VECTOR-INT16
  731.             XLIB::WRITE-LIST-CARD32 XLIB::WRITE-VECTOR-CARD32)) 
  732. (PROCLAIM
  733.     '(FTYPE (FUNCTION (T) T) XLIB::INITIALIZE-RESOURCE-ALLOCATOR
  734.             XLIB:GCONTEXT-BACKGROUND XLIB::INITIALIZE-PREDEFINED-ATOMS
  735.             XLIB::INITIALIZE-EXTENSIONS XLIB::MAKE-PROCESS-LOCK
  736.             XLIB::MAKE-REPLY-BUFFER XLIB::GET-EVENT-CODE
  737.             XLIB::BUFFER-FLUSH XLIB::DEALLOCATE-EVENT
  738.             XLIB::RESOURCEALLOC XLIB::BUFFER-FORCE-OUTPUT-DEFAULT
  739.             XLIB::IMAGE-X-PLIST XLIB:GCONTEXT-TS-Y
  740.             XLIB::DISPLAY-KEYBOARD-MAPPING
  741.             XLIB::GET-DISPLAY-MODIFIER-MAPPING XLIB:FREE-PIXMAP
  742.             XLIB::PROCESS-WAKEUP XLIB:FREE-CURSOR
  743.             XLIB:DISPLAY-XDEFAULTS XLIB:GCONTEXT-PLANE-MASK
  744.             XLIB::DISPLAY-PERFORMANCE-INFO XLIB:WM-NORMAL-HINTS
  745.             XLIB::DISPLAY-TRACE-HISTORY XLIB::DISPLAY-INPUT-IN-PROGRESS
  746.             XLIB::RGB-VAL->CARD16 XLIB::DISPLAY-PENDING-COMMANDS
  747.             XLIB:GCONTEXT-SUBWINDOW-MODE
  748.             XLIB::DISPLAY-ASYNCHRONOUS-ERRORS
  749.             XLIB::DISPLAY-EVENT-PROCESS XLIB::RADIANS->INT16
  750.             XLIB::BUFFER-LISTEN-DEFAULT XLIB:GCONTEXT-FILL-RULE
  751.             XLIB:WM-HINTS XLIB:DISPLAY-XID XLIB:DISCARD-CURRENT-EVENT
  752.             XLIB:GCONTEXT-FILL-STYLE XLIB:GCONTEXT-LINE-STYLE
  753.             XLIB::FONT-CHAR-INFOS XLIB:CLOSE-DOWN-MODE
  754.             XLIB::ENCODE-EVENT-MASK XLIB::MAKE-INDEX-TYPED
  755.             XLIB:COLORMAP-P XLIB::ENCODE-DEVICE-EVENT-MASK
  756.             XLIB::DEALLOCATE-TEMP-GCONTEXT XLIB::ENCODE-MODIFIER-MASK
  757.             XLIB::GCONTEXT-EXTENSION-DEFAULT XLIB::ENCODE-STATE-MASK
  758.             XLIB::ENCODE-POINTER-EVENT-MASK XLIB:GCONTEXT-LINE-WIDTH
  759.             XLIB::BIND-IO-HOOKS XLIB::UNBIND-IO-HOOKS
  760.             XLIB:GCONTEXT-CLIP-Y XLIB::ENCODE-WM-HINTS
  761.             XLIB::ENCODE-WM-SIZE-HINTS XLIB:DISPLAY-ERROR-HANDLER
  762.             XLIB::DISPLAY-LOCK XLIB:GCONTEXT-DASH-OFFSET
  763.             XLIB::EVENT-NUMBER XLIB:WM-COLORMAP-WINDOWS
  764.             XLIB::DISPLAY-OUTPUT-STREAM XLIB:DRAWABLE-BORDER-WIDTH
  765.             XLIB:GCONTEXT-EXPOSURES XLIB::DISPLAY-LAST-REQUEST
  766.             XLIB:WM-COMMAND XLIB:WM-HINTS-P XLIB:WM-SIZE-HINTS-P
  767.             XLIB:FORCE-GCONTEXT-CHANGES XLIB:WM-PROTOCOLS
  768.             XLIB:DISPLAY-HOST XLIB:FREE-GCONTEXT
  769.             XLIB::DECODE-WM-SIZE-HINTS XLIB:FONT-P XLIB:GCONTEXT-DASHES
  770.             XLIB:IMAGE-X-P XLIB::DEALLOCATE-CONTEXT
  771.             XLIB:DISPLAY-AFTER-FUNCTION XLIB:WINDOW-BIT-GRAVITY
  772.             XLIB:CURSOR-P XLIB:DRAWABLE-X XLIB:DRAWABLE-Y
  773.             XLIB:DISPLAY-FORCE-OUTPUT XLIB::INDEX-INCREMENT
  774.             XLIB:FREE-COLORMAP XLIB:DISPLAY-PLIST
  775.             XLIB:DISCARD-FONT-INFO XLIB::ALLOCATE-EXTENSION-EVENT-CODE
  776.             XLIB:WINDOW-BACKING-PLANES XLIB:WINDOW-MAP-STATE
  777.             XLIB:VISUAL-INFO-P XLIB:GCONTEXT-JOIN-STYLE
  778.             XLIB:GCONTEXT-TS-X XLIB:IMAGE-Z-P XLIB:WINDOW-SAVE-UNDER
  779.             XLIB::DISPLAY-LAST-FLUSHED-REQUEST XLIB::BUFFER-LOCK
  780.             XLIB:CLOSE-FONT XLIB::BUFFER-TBUF16 XLIB:GCONTEXT-ARC-MODE
  781.             XLIB::DISPLAY-OBUF8 XLIB:WINDOW-EVENT-MASK
  782.             XLIB::DISPLAY-TBUF16 XLIB::BUFFER-WRITE-FUNCTION
  783.             XLIB::DISPLAY-INPUT-STREAM
  784.             XLIB::BUFFER-FORCE-OUTPUT-FUNCTION
  785.             XLIB:WINDOW-ALL-EVENT-MASKS XLIB::DISPLAY-DEAD
  786.             XLIB::BUFFER-CLOSE-FUNCTION XLIB:COLOR-P
  787.             XLIB:WINDOW-OVERRIDE-REDIRECT XLIB::DISPLAY-FLUSH-INHIBIT
  788.             XLIB:GCONTEXT-FOREGROUND XLIB::BUFFER-INPUT-FUNCTION
  789.             XLIB::FORCE-GCONTEXT-CHANGES-INTERNAL XLIB:DRAWABLE-DEPTH
  790.             XLIB:DISPLAY-DEFAULT-SCREEN
  791.             XLIB::BUFFER-INPUT-WAIT-FUNCTION
  792.             XLIB::DISPLAY-WRITE-FUNCTION XLIB::BUFFER-LISTEN-FUNCTION
  793.             XLIB:WINDOW-COLORMAP XLIB:IMAGE-XY-P
  794.             XLIB:GCONTEXT-CAP-STYLE XLIB::DISPLAY-FORCE-OUTPUT-FUNCTION
  795.             XLIB::DISPLAY-CLOSE-FUNCTION
  796.             XLIB:RESOURCE-DATABASE-TIMESTAMP
  797.             XLIB::INCF-RESOURCE-DATABASE-TIMESTAMP
  798.             XLIB::INITIALIZE-RESOURCE-DATABASE
  799.             XLIB::DISPLAY-INPUT-FUNCTION
  800.             XLIB::DISPLAY-INPUT-WAIT-FUNCTION XLIB:GCONTEXT-P
  801.             XLIB::PENDING-COMMAND-PROCESS XLIB:WINDOW-CLASS
  802.             XLIB::DISPLAY-LISTEN-FUNCTION XLIB:GCONTEXT-FUNCTION
  803.             XLIB:COPY-COLORMAP-AND-FREE XLIB::OPEN-FONT-INTERNAL
  804.             XLIB::IMAGE-XY-PLIST XLIB:DRAWABLE-WIDTH
  805.             XLIB::DISPLAY-EVENT-LOCK XLIB::QUERY-FONT
  806.             XLIB:WINDOW-CURSOR XLIB:ICON-SIZES
  807.             XLIB::START-PENDING-COMMAND XLIB::DISPLAY-EVENT-QUEUE-LOCK
  808.             XLIB::BUFFER-FORCE-OUTPUT XLIB:SCREEN-P
  809.             XLIB:DRAWABLE-HEIGHT XLIB:DISPLAY-P XLIB::FONT-FONT-INFO
  810.             XLIB::DEALLOCATE-REPLY-BUFFER XLIB:WINDOW-BACKING-PIXEL
  811.             XLIB:DISPLAY-BYTE-ORDER XLIB::DISPLAY-FONT-CACHE
  812.             XLIB:BITMAP-FORMAT-P XLIB::IMAGE-Z-PLIST XLIB:FONT-ID
  813.             XLIB:PIXMAP-FORMAT-P XLIB::DISPLAY-RESOURCE-ID-BYTE
  814.             XLIB:WM-ZOOM-HINTS XLIB::DISPLAY-CLOSE-DOWN-MODE
  815.             XLIB:WINDOW-VISUAL XLIB:TRACE-DISPLAY
  816.             XLIB:WINDOW-COLORMAP-INSTALLED-P
  817.             XLIB:SUSPEND-DISPLAY-TRACING XLIB:RESUME-DISPLAY-TRACING
  818.             XLIB:GCONTEXT-CLIP-X XLIB:UNTRACE-DISPLAY
  819.             XLIB:WINDOW-GRAVITY XLIB:WINDOW-BACKING-STORE
  820.             XLIB::RESOURCE-DATABASE-VALUE XLIB:WINDOW-VISUAL-INFO
  821.             XLIB:DRAWABLE-ROOT XLIB::RATIONAL
  822.             XLIB:WINDOW-DO-NOT-PROPAGATE-MASK)) 
  823. (PROCLAIM
  824.     '(FTYPE (FUNCTION (T FIXNUM T) T) XLIB::READ-EVENT-INPUT
  825.             XLIB::MAPPING-MATCHES-P XLIB::RESTORE-GCONTEXT-TEMP-STATE
  826.             XLIB:DEFAULT-KEYSYM-TRANSLATE)) 
  827. (PROCLAIM
  828.     '(FTYPE (FUNCTION (T T T) FIXNUM) XLIB::SET-RGB-COLORMAPS
  829.             XLIB:RECOLOR-CURSOR XLIB:DRAW-SEGMENTS
  830.             XLIB:DEFAULT-KEYSYM-INDEX)) 
  831. (PROCLAIM
  832.     '(FTYPE (FUNCTION (T) STRING) XLIB:DISPLAY-VENDOR-NAME
  833.             XLIB:DISPLAY-AUTHORIZATION-NAME
  834.             XLIB:DISPLAY-AUTHORIZATION-DATA)) 
  835. (PROCLAIM
  836.     '(FTYPE (FUNCTION
  837.                 (T T INTEGER FIXNUM FIXNUM FIXNUM FIXNUM T FIXNUM
  838.                    FIXNUM)
  839.                 FIXNUM)
  840.             XLIB:COPY-PLANE)) 
  841. (PROCLAIM
  842.     '(FTYPE (FUNCTION (T FIXNUM FIXNUM) T)
  843.             XLIB::CHANGE-DRAWABLE-GEOMETRY XLIB:KEYCODE->KEYSYM)) 
  844. (PROCLAIM
  845.     '(FTYPE (FUNCTION (T FIXNUM FIXNUM T FIXNUM FIXNUM *) T)
  846.             XLIB:WARP-POINTER-IF-INSIDE)) 
  847. (PROCLAIM
  848.     '(FTYPE (FUNCTION (T T T INTEGER T T) FIXNUM)
  849.             XLIB:SET-STANDARD-COLORMAP)) 
  850. (PROCLAIM
  851.     '(FTYPE (FUNCTION (T T FIXNUM FIXNUM) FIXNUM) XLIB:REPARENT-WINDOW)) 
  852. (PROCLAIM
  853.     '(FTYPE (FUNCTION (T T T T) FIXNUM) XLIB::CHANGE-ACCESS-HOST)) 
  854. (PROCLAIM
  855.     '(FTYPE (FUNCTION (T FIXNUM INTEGER) T) XLIB::STATE-KEYSYMP
  856.             XLIB::CHANGE-WINDOW-ATTRIBUTE)) 
  857. (PROCLAIM
  858.     '(FTYPE (FUNCTION (T T FIXNUM FIXNUM FIXNUM FIXNUM T FIXNUM FIXNUM)
  859.                 FIXNUM)
  860.             XLIB:COPY-AREA)) 
  861. (PROCLAIM
  862.     '(FTYPE (FUNCTION (T) XLIB:STRINGABLE)
  863.             XLIB::RESOURCE-DATABASE-NAME)) 
  864. (PROCLAIM '(FTYPE (FUNCTION (T T FIXNUM) FIXNUM) XLIB::SET-ATOM-ID)) 
  865. (PROCLAIM '(FTYPE (FUNCTION ((VECTOR T) T T) T) XLIB::ENCODE-MASK)) 
  866. (PROCLAIM '(FTYPE (FUNCTION (STRING *) *) XLIB::PARSE-RESOURCE)) 
  867. (PROCLAIM
  868.     '(FTYPE (FUNCTION (T FIXNUM T FIXNUM FIXNUM T) T)
  869.             XLIB::WRITE-VECTOR-CHAR2B-WITH-TRANSFORM
  870.             XLIB::WRITE-LIST-CARD8-WITH-TRANSFORM
  871.             XLIB::WRITE-VECTOR-CARD8-WITH-TRANSFORM
  872.             XLIB::WRITE-LIST-CARD16-WITH-TRANSFORM
  873.             XLIB::WRITE-VECTOR-CARD16-WITH-TRANSFORM
  874.             XLIB::WRITE-LIST-INT16-WITH-TRANSFORM
  875.             XLIB::WRITE-VECTOR-INT16-WITH-TRANSFORM
  876.             XLIB::WRITE-LIST-CARD32-WITH-TRANSFORM
  877.             XLIB::WRITE-VECTOR-CARD32-WITH-TRANSFORM
  878.             XLIB::WRITE-LIST-CHAR2B-WITH-TRANSFORM)) 
  879. (PROCLAIM
  880.     '(FTYPE (FUNCTION ((VECTOR UNSIGNED-CHAR) T FIXNUM FIXNUM) T)
  881.             XLIB::BUFFER-WRITE-DEFAULT)) 
  882. (PROCLAIM '(FTYPE (FUNCTION (T FIXNUM T T) T) XLIB::READ-ERROR-INPUT)) 
  883. (PROCLAIM
  884.     '(FTYPE (FUNCTION (T FIXNUM (VECTOR UNSIGNED-CHAR) T FIXNUM FIXNUM)
  885.                 T)
  886.             XLIB::READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM)) 
  887. (PROCLAIM
  888.     '(FTYPE (FUNCTION
  889.                 (T FIXNUM (VECTOR UNSIGNED-SHORT) T FIXNUM FIXNUM) T)
  890.             XLIB::READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM)) 
  891. (PROCLAIM
  892.     '(FTYPE (FUNCTION (T FIXNUM (VECTOR T) T FIXNUM FIXNUM) T)
  893.             XLIB::READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM)) 
  894. (PROCLAIM
  895.     '(FTYPE (FUNCTION (T FIXNUM T T FIXNUM FIXNUM) T)
  896.             XLIB::READ-LIST-CARD8-WITH-TRANSFORM
  897.             XLIB::READ-VECTOR-CARD8-WITH-TRANSFORM
  898.             XLIB::READ-LIST-CARD16-WITH-TRANSFORM
  899.             XLIB::READ-VECTOR-CARD16-WITH-TRANSFORM
  900.             XLIB::READ-LIST-CARD32-WITH-TRANSFORM
  901.             XLIB::READ-VECTOR-CARD32-WITH-TRANSFORM)) 
  902. (PROCLAIM
  903.     '(FTYPE (FUNCTION (T FIXNUM BIT-VECTOR) T)
  904.             XLIB::WRITE-BITVECTOR256)) 
  905. (PROCLAIM
  906.     '(FTYPE (FUNCTION (T FIXNUM T *) T) XLIB::WRITE-SEQUENCE-INT8
  907.             XLIB::WRITE-SEQUENCE-CARD16 XLIB::WRITE-SEQUENCE-INT16
  908.             XLIB::WRITE-SEQUENCE-INT32 XLIB::WRITE-SEQUENCE-CHAR2B
  909.             XLIB::KEYSYM-SHIFT-P XLIB::WRITE-SEQUENCE-CARD8
  910.             XLIB::WRITE-SEQUENCE-CARD32 XLIB::WRITE-SEQUENCE-CHAR)) 
  911. (PROCLAIM
  912.     '(FTYPE (FUNCTION (T FIXNUM FIXNUM FIXNUM FIXNUM FIXNUM) T)
  913.             XLIB::COPY-PIXARRAY)) 
  914. (PROCLAIM
  915.     '(FTYPE (FUNCTION (T T) *) XLIB:SELECTION-OWNER
  916.             XLIB::STRINGABLE-EQUAL XLIB::ENQUEUE-EVENT
  917.             XLIB::REPORT-ASYNCHRONOUS-ERRORS XLIB:GET-STANDARD-COLORMAP
  918.             XLIB:ALLOC-COLOR XLIB:QUERY-EXTENSION XLIB:LOOKUP-COLOR)) 
  919. (PROCLAIM
  920.     '(FTYPE (FUNCTION (T *) T) XLIB:GCONTEXT-FONT
  921.             XLIB::PRINT-HISTORY-DESCRIPTION XLIB::SET-ROOT-RESOURCES
  922.             XLIB::PRINT-DB XLIB::DISPLAY-CONNECT
  923.             XLIB::SELECTION-REQUEST-EVENT-PUT
  924.             XLIB::SELECTION-NOTIFY-EVENT-PUT
  925.             XLIB::KEYMAP-NOTIFY-EVENT-PUT XLIB::BUFFER-CLOSE-DEFAULT
  926.             XLIB::CLOSE-BUFFER XLIB::REQUEST-NAME XLIB::X-ERROR
  927.             XLIB::HOST-ADDRESS XLIB::CHECK-CONSISTENCY
  928.             XLIB:CHANGE-POINTER-CONTROL XLIB:ROOT-RESOURCES
  929.             XLIB::GRAPHICS-EXPOSURE-EVENT-PUT
  930.             XLIB::NO-EXPOSURE-EVENT-PUT
  931.             XLIB::VISIBILITY-NOTIFY-EVENT-PUT
  932.             XLIB::CREATE-NOTIFY-EVENT-PUT
  933.             XLIB::DESTROY-NOTIFY-EVENT-PUT XLIB::UNMAP-NOTIFY-EVENT-PUT
  934.             XLIB::MAP-NOTIFY-EVENT-PUT XLIB::MAP-REQUEST-EVENT-PUT
  935.             XLIB:CHARACTER->KEYSYMS XLIB::REPARENT-NOTIFY-EVENT-PUT
  936.             XLIB::CONFIGURE-NOTIFY-EVENT-PUT
  937.             XLIB::CONFIGURE-REQUEST-EVENT-PUT
  938.             XLIB::GRAVITY-NOTIFY-EVENT-PUT
  939.             XLIB::RESIZE-REQUEST-EVENT-PUT
  940.             XLIB::CIRCULATE-NOTIFY-EVENT-PUT
  941.             XLIB::CIRCULATE-REQUEST-EVENT-PUT
  942.             XLIB::PROPERTY-NOTIFY-EVENT-PUT
  943.             XLIB::MOTION-NOTIFY-EVENT-PUT
  944.             XLIB::SELECTION-CLEAR-EVENT-PUT XLIB:ROTATE-CUT-BUFFERS
  945.             XLIB::ENTER-NOTIFY-EVENT-PUT XLIB::KEY-PRESS-EVENT-PUT
  946.             XLIB::FOCUS-IN-EVENT-PUT XLIB::COLORMAP-NOTIFY-EVENT-PUT
  947.             XLIB::MAPPING-NOTIFY-EVENT-PUT XLIB::EXPOSURE-EVENT-PUT
  948.             XLIB:CHANGE-KEYBOARD-CONTROL XLIB:CLOSE-DISPLAY
  949.             XLIB:LIST-PROPERTIES XLIB:CLEAR-AREA XLIB:BELL
  950.             XLIB:OPEN-DISPLAY XLIB:SET-STANDARD-PROPERTIES
  951.             XLIB:KEYBOARD-MAPPING XLIB:UNGRAB-POINTER
  952.             XLIB:UNGRAB-KEYBOARD XLIB:SET-WM-PROPERTIES XLIB:SHOW-TRACE
  953.             XLIB:DESCRIBE-TRACE XLIB:COPY-IMAGE)) 
  954. (PROCLAIM '(FTYPE (FUNCTION (T CHARACTER) T) XLIB::CHAR-MEMQ)) 
  955. (PROCLAIM
  956.     '(FTYPE (FUNCTION (T T) T) XLIB:SET-CLOSE-DOWN-MODE XLIB:OPEN-FONT
  957.             XLIB::SET-GCONTEXT-ARC-MODE XLIB::SET-GCONTEXT-DASHES
  958.             XLIB:SET-POINTER-MAPPING XLIB::SET-GCONTEXT-FONT
  959.             XLIB::SET-WINDOW-BACKGROUND XLIB::SET-WINDOW-BORDER
  960.             XLIB::SET-WINDOW-BIT-GRAVITY XLIB::SET-WINDOW-GRAVITY
  961.             XLIB::SET-WINDOW-BACKING-STORE
  962.             XLIB::SET-WINDOW-BACKING-PLANES XLIB:FIND-ATOM
  963.             XLIB::SET-WINDOW-BACKING-PIXEL XLIB::SET-WINDOW-SAVE-UNDER
  964.             XLIB::SET-WINDOW-OVERRIDE-REDIRECT
  965.             XLIB::SET-WINDOW-COLORMAP XLIB::SET-WINDOW-CURSOR
  966.             XLIB::SET-DRAWABLE-X XLIB::SET-DRAWABLE-Y
  967.             XLIB::SET-DRAWABLE-WIDTH XLIB::SET-DRAWABLE-HEIGHT
  968.             XLIB::SET-DRAWABLE-BORDER-WIDTH XLIB::SET-WM-HINTS
  969.             XLIB::DELETE-RESOURCE-INTERNAL
  970.             XLIB::DEALLOCATE-RESOURCE-ID-INTERNAL
  971.             XLIB::SET-WM-NORMAL-HINTS XLIB::SET-WM-ZOOM-HINTS
  972.             XLIB::PRINT-DISPLAY-NAME XLIB::SET-ICON-SIZES
  973.             XLIB::SET-WM-PROTOCOLS XLIB::SET-WM-COLORMAP-WINDOWS
  974.             XLIB::SET-TRANSIENT-FOR XLIB::NOTE-INPUT-COMPLETE
  975.             XLIB::BUFFER-INPUT-WAIT XLIB::SET-FONT-PATH
  976.             XLIB::DEQUEUE-EVENT XLIB:DELETE-RESOURCE
  977.             XLIB::BUFFER-INPUT-WAIT-DEFAULT XLIB::REPORT-REQUEST-ERROR
  978.             XLIB::DECODE-RESOURCE-ERROR XLIB::MAKE-INDEX-OP
  979.             XLIB::SET-WM-COMMAND XLIB::TRACE-EVENT-PRINT
  980.             XLIB::SET-GCONTEXT-LINE-STYLE XLIB::SET-GCONTEXT-CAP-STYLE
  981.             XLIB::SET-GCONTEXT-JOIN-STYLE XLIB::SET-GCONTEXT-FILL-STYLE
  982.             XLIB::SET-GCONTEXT-FILL-RULE XLIB::SET-GCONTEXT-TILE
  983.             XLIB::SET-GCONTEXT-STIPPLE XLIB:EVENT-HANDLER
  984.             XLIB:GET-EXTERNAL-EVENT-CODE XLIB:RGB-COLORMAPS
  985.             XLIB:INTERN-ATOM XLIB::READ-REPLY
  986.             XLIB::STOP-PENDING-COMMAND
  987.             XLIB::SET-GCONTEXT-SUBWINDOW-MODE
  988.             XLIB::SET-GCONTEXT-EXPOSURES XLIB:FONT-PROPERTY
  989.             XLIB:SET-ACCESS-CONTROL XLIB:MERGE-RESOURCES XLIB:ATOM-NAME
  990.             XLIB:COPY-GCONTEXT XLIB:DESCRIBE-REQUEST
  991.             XLIB:DESCRIBE-REPLY XLIB:DESCRIBE-ERROR)) 
  992. (PROCLAIM
  993.     '(FTYPE (FUNCTION (INTEGER (VECTOR UNSIGNED-CHAR) FIXNUM) T)
  994.             XLIB::ASET-CARD32))